home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / aros / graphics / setapen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-09-12  |  1.4 KB  |  71 lines
  1. /*
  2.     (C) 1995 AROS - The Amiga Replacement OS
  3.     $Id: setapen.c,v 1.3 1996/08/23 17:09:44 digulla Exp $
  4.     $Log: setapen.c,v $
  5.     Revision 1.3  1996/08/23 17:09:44  digulla
  6.     Moved the modification of the rastport behind the call of the driver to
  7.     allow the driver to examine the old value
  8.  
  9.     Revision 1.2  1996/08/13 13:59:02  digulla
  10.     Added call to driver
  11.     Replaced __AROS_LA by __AROS_LHA
  12.     Added include
  13.  
  14.     Revision 1.1  1996/08/12 14:28:29  digulla
  15.     Change forground color of Rastport
  16.  
  17.     Desc:
  18.     Lang: english
  19. */
  20. #include "graphics_intern.h"
  21. #include <graphics/rastport.h>
  22.  
  23. extern void driver_SetAPen (struct RastPort *, ULONG);
  24.  
  25. /*****************************************************************************
  26.  
  27.     NAME */
  28.     #include <graphics/rastport.h>
  29.     #include <clib/graphics_protos.h>
  30.  
  31.     __AROS_LH2(void, SetAPen,
  32.  
  33. /*  SYNOPSIS */
  34.     __AROS_LHA(struct RastPort *, rp, A1),
  35.     __AROS_LHA(unsigned long    , pen, D0),
  36.  
  37. /*  LOCATION */
  38.     struct GfxBase *, GfxBase, 57, Graphics)
  39.  
  40. /*  FUNCTION
  41.  
  42.     INPUTS
  43.  
  44.     RESULT
  45.  
  46.     NOTES
  47.  
  48.     EXAMPLE
  49.  
  50.     BUGS
  51.  
  52.     SEE ALSO
  53.  
  54.     INTERNALS
  55.  
  56.     HISTORY
  57.     29-10-95    digulla automatically created from
  58.                 graphics_lib.fd and clib/graphics_protos.h
  59.  
  60. *****************************************************************************/
  61. {
  62.     __AROS_FUNC_INIT
  63.     __AROS_BASE_EXT_DECL(struct GfxBase *,GfxBase)
  64.  
  65.     driver_SetAPen (rp, pen);
  66.  
  67.     rp->FgPen = pen;
  68.  
  69.     __AROS_FUNC_EXIT
  70. } /* SetAPen */
  71.